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1b-5e -1984 00:56:34  VAX=11 Bliss-32 v4.0-742 P 1 
1 ~8e0-19 4 99:38:35 DISKSVMSMASTER:CFIIA.SRCIDELETE.B32:1 > (1) 
MODULE DELETE ( maak in See 
IDENT = (BL LS S8e : 


~" 


BEGIN 


' 
QR RAR ERA RAAAAAAAARAERAAAEREREE RAAT RERETEEA AERA AEA AAAEE AAA REE EERE 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
:* ONLY IN cee ITH THE TERMS OF SUCH LICENSE AND WITH THE 


ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
!t TRANSFERRED. 


is THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
t* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
's CORPORATION. 

i® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
'® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 

i 
lonedcunenodeewsesacunbbebenmbicenghebessenebeebendbeesennsebnasebenbeabdede 


@eneneeneeeeeeeneaeenenaennnene 


i+¢ 
| FACILITY: FIIACP Structure Level 1 
! ABSTRACT: 
This routine performs the DELETE function. 
ENVIRONMENT : 


STARLET operating system, including privileged system services 
and internal exec routines. 


AUTHOR: Andrew C. Goldstein, CREATION DATE: 11-Apr-1977 
MODIFIED BY: 


4 

i A0101 ACGO116 Andrew C. Goldstein 16-Jan-1980 16:47 
: Swallow errors reading the ea 

i A0100 acG00001 Andrew C. Goldstein, 10-Oct-1978 20:02 
Previous revision history moved to eREV 
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-1 VAX=11 Bliss-32 V4.0-742 Page oer] 
15-8 900-1382 99: 36: 34 DISKSVMSMASTER:CF11A.SRCIDELETE.B32;1 . ag 
LIBRARY SL SELIORARY 1 18, L352 ; 
REQUIRE "SRCS$:FCPDEF.B32'; 
FORWARD povl ine 
LET ' main delete function 
MARK DELETE : NOVALUE, i mark file for delete 
MARKBEL ' mark FCB of file for delete 
DELETE L AANBLER: ' condition handler for delete function 
OWN 


SAVE STATUS; ! place to save user status for handler 


| D1 
vO6-060 VexSep-1984 19:29:27 — DISKSUMEMASTERCEFTIASSREIDELETE.B32;1°% (23 pu 
GLOBAL ROUTINE DELETE = 
i++ 
: FUNCTIONAL. DESCRIPTION: 
This routine performs the remove and mark for delete functions. 


CALLING SEQUENCE: 
DELETE () 


OO0O0000 00000000000 


VFWN—O OODNAUNE WN" OVOONOu 


INPUT PARAMETERS: 
NONE 


WOOO Oo NNN 
NOW 
pe ww wool wlololololelololo) 


Www 
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IMPLICIT INPUTS: 
IO_PACKET: 1/0 packet in process 


! 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i OUTPUT PARAMETERS: 
; PRIMARY_FCB: FCB of file 
i IMPLICIT OUTPUTS: 

NONE 

in 


es VALUE : 


SIDE EFFECTS: 
directory entry removed 
e 


file marked for delete or deleted 


BEGIN 


LOCAL 
: REF BBLOCKVECTOR C,ABDS$C_LENGTH], 
| buffer descriptors 


AIP OROPOPOPONPONUIIN 4 = 
UO ISSR RU O0MNON RWW ODS We 


FIB : REF BBLOCK; ! FIB 
EXTERNAL 
CLEANUP_FLAGS BITVECTOR, ' cleanup action flags 
: REF BBLOCK, ! 1/0 packet in process 
CURRENT_WINDOW : REF BBLOCK, ! window of open file 
PRIMARY_FCB : REF BBLOCK, ! FCB of file 
CURRENT_VCB REF BBLOCK; ! VCB of volume 
EXTERNAL ROUTINE 
GET _FIB, ' get FIB of request 
FI ! find name in directory 
SEARCH_FCB; ' search FCB List 


! First find the buffer descriptor, FIB, FCB, etc. then remove the 
directory entry. 
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! pointer to buffer descriptors 
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Eo 


1 
1$-Sep-1984 00:56:54 VAX]! BLs8=52 40-7 


: 129 44 ABD = .BBLOCK £-10 PACKETCIRPSL_SVAPTE], AIBSL_DESCRIPTI; 

3 : : ret FIB = GET_FIB (.ABD); 

oS ¢ 445 IF .CURRENT_VCBLVCBS$V_NOALLOCJ 

; ! rf THEN ERR_EXIT (SS$_WRITLCK); 

s 135 rr ! If a directory ID is present, do a directory search first and remove 

: % 44 ! the directory entry. 

. 450 : 

; 138 451 

; 139 4 § IF .FIBCFIBSW_DID_NUM] NEQ 0 

3 139 rf ? THEN FIND (.ABD, [FIB, 1); 

: 146 455 ! If there is a file open on the channel, check the file ID returned by the 

s 114 4 § ' FIND apetanst that of the open file. If they do not match, treat the file 

3 «1446 4 ' as if it were not open. 

3 6145 458 ! 

; 146 Fe 

: (14 460 IF .PRIMARY_FCB NEQ 0 

: 148 0461 THEN 

; 149 png BEGIN 

; 150 Bee IF .PRIMARY_FCB Cpe FID Nun) NEQ Saat ted eer ry: 

3 151 464 OR_ .PRIMARY FCBLFCBSW_FID_SEQ) NEQ .FIBLFIBSW_FID_SEQ) 

3 13¢ 0465 THEN CURRENT_WINDOW ="0; 

3; 15 Be08 END; 

; «©1546 Bee 

3 12? Bce6 PRIMARY_FCB = SEARCH_FCB (FIBCFIBSW_FIDJ); 

: Hs 6 Now actually mark the file for delete if requested. 

: 159 7 

: 160 bers If .BBLOCK CIO_PACKETCIRPSW_FUNC], IO$V_DELETE) 

: 161 0474 THEN MARK_DELETE (.F 1B); 

3 166 0475 

:; 16 0476 RETURN 1; 

3; 164 0477 

; «6165 0478 1 END; ! end of routine DELETE 
-TITLE DELETE 
-IDENT \V04-000\ 
-PSECT S$LOCKEDD1$,NOEXE,2 

00000 SAVE_STATUS: 

-BLKB 4 


-EXTRN 


SCODES ,NOWRT ,2 


DELETE, Save R2,R3 
10 PACKET, RO 
a4%(R0), ABD 


4 
R 


2 
C 


p 4 
WELETE.B32;1 9 (2) 


<o 
~” 


F 4 
LET 16-Se 4  —-* VAX=11 BLiss=32_V4.0-742 5 DELF 
raat 14- $8: 138 99: 36: 3 bIsk SVMSMASTER:CF11A.SRCJDELETE.B32; fag * «23 V 
3 Do PUSH D 3 0443 
00006 : e} F if CALLS A hi , GET_FIB 3 “ 

6 00006 CF »D 1 MOVL CORE vce, RO + 0445 

05 0B A O4 E 1A BBC 11(R : 
025c BF BF If CHAU 7664 + 0446 
OA A2 83 4 1$ IST 49¢F1B) + 0452 
DD 9 PUSHL #1 + 0453 

Ht a : 

00006 ct F F CALLS a FIND ; 
0 00006 Ct 09 4 2s: Ov PRIMARY_FCB, RO + 0460 
ae 24 AS 8 f CHP 6(RO), 4(FIB) + 0463 
06 A2 26 Ad ef 04 CMPW 8(RO), 6(FIB) + 0464 

04 1 4 BEQL : 
00006 CF p $029 3$: CLRL CURRENT _WINDOW + 0465 
00006 CF Sin & 036 a i ee | iy _— 
cal er | ee oss 

a AO € bo BLBC 19 PACKE] 5$ ; 
DD 063 PUSHL fF : 0474 

0000v cf FB 065 CALLS #1, MARK_DELETE : 
0 1 DO O006A 5S: MOVL #1. RO > 0476 
04 0006D RET : 0478 


; Routine Size: 110 bytes, Routine Base: SCODE$ + 0000 


a a ee ed ed eed ed ed ed ed eed ed 


~ 
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GLOBAL ROUTINE MARK_DELETE (FIB) : NOV4\LUE = 


Fe 
e 


lee 
' 


i FUNCTIONAL DESCRIPTION: 


This routine marks the indicated file for delete and deletes it 
if it is not accessed. 


CALLING SEQUENCE: 
MARK _DELETE (ARG1) 


QESSRRORERae 


; 167 ! ; } 
; 19 1 od 
3; 170 1 s | 
: 171 1 i ; | 
3 176 1! ; 4 
; 1 1 | i] 
: 17% 1! : | 
; 175 1 i ; | 
i 126 1} ; ] 
. Sr 1 / . 4 
: 178 . 4 ‘ 1 
ee 491 1 | INPUT PARAMETERS: a) 
; 180 3 1! ARG1: address of FIB . 4 
> 181 93 1: ; 
i 186 94 1 1 IMPLICIT INPUTS: ; ] 
: 18 95 1! NONE 3 
: 184 rhe 1! ee 
; «6185 9 1 ! OUTPUT PARAMETERS: ..4 
: 186 98 1! NONE ; 
; 187 0499 1! ; | 
: 188 0500 1 ! IMPLICIT OUTPUTS: ; | 
; 189 0501 1 | NONE ; 
; 190 0508 1 | a 
; 191 0503 1 | ROUTINE VALUE: : 1 
i 198 0504 1 | NONE | 
: 19 0505 1: : 
> 19% 0506 1 | SIDE EFFECTS: ¢ 
3 199 0507 1! file marked for delete or deleted . 4 
> 196 0508 1 | : 
; 197 0509 1 i-- ; | 
; 198 0510 1 : 
; 199 0511 2 BEGIN : 1 
Py 00 bag ° 1 
; 201 0513 2 BUILTIN : 
3 4 0514 FP; | 
Py 0 0515 ° 1 
Py 04 3218 MAP ° ; 
3 05 ga! FIB : REF BBLOCK; ! FIB 4 
F oF 0319 LOCAL : | 
> 208 520 CB : REF BBLOCK, ! FCB of file : 
; #4 521 HEADER : REF BBLOCK; ! file header 4 
: 211 358 5 own 2 | 
; \f : ¢ DELETELOGENB : INITIAL (0); ! delete logger enable $4 
> 214 326 ¢ EXTERNAL : | 
: 215 5 USER_STATUS ' status to return to user : 1 
; if 5 : CLEARUP_FLAGS : BITVECTOR, | cleanup action flags >| 
: ! 5 4 CURRENT_WINDOW : REF BBLOCK; ! window of open file : 
: 3 ; 1 EXTERNAL ROUTINE ea | 
3 0 § SEARCH_FCB ' search FCB List Ess | 
: 1 5 READ HEADER, i read file heade : 


send me space to “delete logger 


tHECK _PROT Téct, check ft le protectio 


! Find the FCB, if any, and then rea 
i under a condition handler that qui 
encountered. Thus, deleting a bad 


d the header. Reading the header is done 
etly exits with success if errors are 
file header succeeds quietly. 


H 1 
DELET 16-Sep-1984 00:56: VAX=11 Bliss=32_V4.0-742 Pa 7 DELF 
vOs~060 12289871382 99:38:39 DISKSVMSMASTER:CF1IA.SRCIDELETE.832;1 > (3) vO04= 
4 MARK_DIRTY ! mark buffer for write-back ; 
5 DELETE FILE, i delete the fe : ] 
$ CHECKSOM; i checksum file header : } 
$ a.) 
9 t Check that the file is not a reserved file (FID less than 5). : | 
} ' a 
5 IF .FIBCFIBSW_FID_NUM) LSSU 5 : 
THEN ERR_EXIT~ (SSS_NOPRIV); ; | 
' : 1 
5 i : | 
eg 


FCB = SEARCH_FCB (FIBCFIBSW_FIDJ); 
SAVE_STATUS = .USER_STATUS; 

-FP = DELETE HANDLER; 

ey READ_HEADER (FIBCFIBSW_FID], .FCB); 

FP = 0; 

IF .DELETELOGENB THEN LOG_DELETE (.FIB, .HEADER); 

! Check file protection. Check if the file is write accessed by someone 
else and not the deleter. 


ey rnerees (DELETE_ACCESS, .HEADER, .FCB); 
IF .FCB EQL 0 
ELSE .FCBCFCBSW_WCNT) NEQ 0) 
Te EQL 0 


ELSE NOT .CURRENT_WINDOWCWCBSV_WRITE)) 
THEN ERR_EXIT (SS$_ACCONFLICT); 


CLEANUP_FLAGSCCLF_REENTER] = 0; ! from now on deletion proceeds 


NF ARAN LS SONS REGNLS SS 
LEAF 


PITINIPYRIPIPIPINMIPINIPINoNo No Noronofonononononyd 


PAEAEAPAEXAEMAMAMAMAAMIVNIN ES 


! Mark the file for delete. If the file is not accessed, then proceed to 
actually delete it. 


Sus 


¢ § HEADERCEHISV MARKDEL) = 1; 
MARK_DIRTY (7HEADER); 


IF KERNEL_CALL (MARKDEL_FCB, .FCB) 
THEN DELETE FILE (.F1B8,~.HEADER) 
ELSE CHECKSOM (.HEADERS: 
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END; ! end of routine MARK_DELETE 
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» LONG 
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SLOCKEDD1$,NOEXE,2 


So 
So 
o 


oom 


SOOoOooooooooooooooooooao 


SSSSSSsssssssssssssssssssssss 


MOMOL WMH WYNN HIM BWP WWNIOMOMTNOONMO NMOL LFWOO 
OOooooococo 


RNOOMNOVCTS NI OOOIM—C -D -F "OW "OOMOO"WoOCITI"OOFOW-wo 
DOC OF "OOO WOOF £ ™OWOMMNUIDI VW OLOTWMoowo- LM — 


OF VM|OOMMNOMOOSD DOOM PP “NOOCOCOFPUNMUqonnuwow.o wory,r 


0 
USER STATUS, READ_HEAD 


MARR_DIRTY DE ETE FIL 
CHECRSUM, SYSSCMKRAL 


SCODES ,NOWRT,2 

BARK DELETE. Save R2,R3 
FIB, R 

4 (RO), as 

#36 

#4, FIB, R2 

#1, SEARCH_FCB 


USER_STATUS, SAVE_STATUS 
DELETE_HANDLER, (FP) 
#°MCR 


> 
#2, READ_HEADER 
RO, HEADER 


E 
E 
E 


DELETELOGENB, 2$ 
HEADER 


Bae LOG_DELETE 
PMR Roe 

#3, CHECK_PROTECT 
FCB 


4$ 
28(F CB) 
URRENT_WINDOW, RO 


#1, 11(RO), 4$ 
#2048 


#128, CLEANUP_FLAGS+#2 
#138 TSCHEADER) 
#1, MARK_DIRTY 


FCS 
# 


SP 
MARKDEL_FC 
#4, aaSTS$ 
RO, 5$ 
HEADER 


AN 
#2, DELETE_FILE 


B 
CMKRNL 


VAX-11 Bliss-32 V4.0-742 
DISKSVMSMASTER:CF1IA 
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0586 


vO6=060 


: Routine Size: 


161 bytes, 


0000G CF 


Routine Base: 


ae 


SCODES + O06E 


ibs 


Sep-1 
Sep-1 


Bc 18:38:37 Disksim 
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Byte MEPOERcxsum 
RET 
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FUNCTIONAL DESCRIPTION: 


This routine marks the FCB for the current file, if any, for delete. 
This routine must be executed in kernel mode. 


i CALLING SEQUENCE: 
MARKDEL_FCB (ARG1) 


! INPUT PARAMETERS: 
ARG1: address of FCB 


! IMPLICIT INPUTS: 

PRIMARY_FCB: FCB of file if any 
DIR_FCB: FCB of directory file if any 
CURRENT_VCB: VCB of volume 


OUTPUT PARAMETERS: 
NONE 


NOUS WN Oo 


IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
1 if FCB removed (i.e., if file is deletable) 
0 if delete is to be deferred 


WW AWN 
SISAL AN SOS NEAR A LODO GRR IO 


AEPIPOPUNEPYNIPNINONS 2 SS SOD ee RR ee ee 


SEEPS SSP PILI PSPS SSS SPREE PERE EEE EE AARARAR RAPA 
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309 SIDE EFFECTS: 
219 FCB marked for delete, may be deallocated 
1 _ 
i 
14 
15 
316 MAP 
4 FCB : REF BBLOCK; ! FCB arg 
319 LOCAL 
20 UMMY; ! dummy destination for REMQUE 
3 33 EXTERNAL 
CURRENT_VCB : REF BBLOCK, ! VCB of volume 
2 5 PRIMARY_FCB : REF BBLOCK, ! FCB of current file 
$ DIR_FCB : REF BBLOCK; ! FCB of directory file 
2 


EXTERNAL ROUTINE 
DEL_EXTFCB, ' del 
DEACLOCATE; ! dea 


WwW 


ete extension FCB's 
Llocate dynamic memory 


yo 


! If the FCB exists, we mark it for delete (causing the file to be deleted 
! when the access count goes to 9). Make sure that the directory LRU bit 

! in the FCB is off (cre thy 1 to the LRU count if it was on). If the 

! access count is zero, dump the FCB and its extensions. 
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IF .FCB NEQ 0 
THEN 
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; Routine Size: 
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Routine Base: 


04 


00006 
49 
1A 
04 
04 


00006 


0006 
0006 


00006 


SCODES 


00 


00 
dO 
i 
ES 
dO 
96 
85 
12 
OF 
DD 
FB 
DD 
FB 
D1 
12 
D4 
4 
Dg 
BO 

4 
4 
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8c 12:35:37 DESeSumSnaSteRsch iA. 


VCBSB_LRU_LIM] + 1; 
" accessed 


! ok to delete file 
! end of routine MARKDEL_FCB 


DIR_FCB, DEL_EXTFCB 
DEACLOCATE 


“Tag | leet Save nothing 


F 
#1. DEL_EXTFCB 


#1, DEALLOCATE 
PRIMARY_FCB, FCB 


2$ 
PRIMARY FCB 
R_FCB; FCB 


DIR_FCB 
#1, RO 


RO 
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; § $68 ! ROUTINE DELETE HANDLER (SIGNAL, MECHANISM) = 

; § G68 | i+ 

3 oe 43 1! 

: re of : } FUNCTIONAL DESCRIPTION: 

: 66 Le zt This routine is the condition handler for reading the file header. 
> oo 675 1! If any errors occurr, it unwinds and returns to MARK_DELETE's caller, 
; ¢ ore } causing the delete off a bad file header to be a quiet NOP. 
; r¢] 6 1% 

; 77 1! CALLING SEQUENCE: 

; r¢4 ee : : HANDLER (ARG1, ARG2) 

: 70 0680 1 ! INPUT PARAMETERS: 

: 371 0681 1! ARG1: address of signal array 

3 i ges ' ARG2: address of mechanism array 

: 374 0684 1 ! IMPLICIT INPUTS: 

3; 5375 0685 1! NONE 

; 376 0686 1! 

3 77 0687 1 ! OUTPUT PARAMETERS: 

; 378 0666 1! NONE 

; 379 0689 1! 

: 80 C690 1 ! IMPLICIT OUTPUTS: 

; 1 0691 1! NONE 

; o¢ 0692 1! 

; 38 0695 1 ! ROUTINE VALUE: 

3 $8¢ 0694 1! SS$_RESIGNAL or none if unwind 

5; wee 0695 1! 

; 386 0696 1 ! SIDE EFFECTS: 

; 387 0697 1! NONE 

; 388 0698 1! 

; 389 99 1 !-- 

> 390 700 #1 

; 4 144 1 

; ¢ 07 § BEGIN 

ee .. 070 

3 394 704 MAP 

: 395 705 SIGNAL : REF BBLOCK, ! signal arg array 

: a8 m8 MECHANISM : REF BBLOCK; ! mechanism arg array 

: 398 7 ; EXTERNAL 

; 399 7 USER_STATUS; ! status to return to user 
: oof ay 

: $06 at ! If the condition is change mode to user (error exit) cause an unwind to 
; 40 71 ' return to DELETE's gat er. 

3 one ee : Otherwise, just resignal the condition. 

: 404 71 

; 40 a9 IF .SIGNALCCHFSL_SIG_NAME] EQL SS$_CMODUSER 

: 408 at THEN 

3; 409 71 BEGIN 

: 410 720 USER_STATUS = .SAVE_STATUS; 

3 6411 721 SUNWIND (); 

; 612 722 END; 


N Ree 
DELET 16-Sep 4 VAX=11 Bliss-32 V4.0-742 13 
V O60 14-Sep 71382 99: 38: 4 DISKSVMSMASTER: CF11A.SRCIDELETE .B32; 429 * 65) 
: 413 723 
: $19 He ; RETURN SS$_RESIGNAL; ! status is irrelevant if unwinding 
> 416 726 1 END; ! end of routine DELETE_HANDLER 


eEXTRN = SYSSUNWIND 
0000 00000 DELETE_HANDLER: 
WORD 


P Save neteine ; 0666 
0 4 A MOVL §SIGNA : 8999 

00000424 ap 8 AS Bie cHPL 4{R0), be O60 ; 
00006 CF 0000' cr i 001 MOVL § SAVE_STATUS, USER_STATUS + 0720 
: € 0001 CLRO  =(SP : 0721 

000000006 00 : FB 0019 CALLS M2 $VSSUNWIND ; 
0 0918 8F 3C 020 1$: MOVZWL #2328, RO + 0724 
04 000 RET + 0726 


; Routine Size: 38 bytes, Routine Base: S$CODE$ + 015F 


3; 417 0727 1 

; 6418 0728 1 END 

3; 419 0729 0 ELUDOM 

; PSECT SUMMARY 

: Name Bytes Attributes 

: $LOCKEDD1$ 8 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON, geist gee hte ts 
; SCODES 389 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; Library Statistics 

ee a ee Symbols -<------- Pages Processing 

3 File Total Loaded Percent Mapped Time 

: -$255$DUA28: CSYSLIBILIB.L32;1 18619 28 0 1000 00:01.9 

3 COMMAND QUALIFIERS 


DELET bse ep-1984 00:56: VAX-11 Bliss-32 V4,0-742 Pa 4 
Marae | ~3007 138% 99:38:38 Ne eimehag ten. CFIiA. SRCIDELETE.832;1 - (3 
3 BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:DELETE/OBJ=OBJ$:DELETE MSRC$:DELETE/UPDATE=(ENH$:DELETE) 

; i 389 ode * 8 data bytes 

3 Elapsed. Time: e 
3 Lines/CPU Min: 9 

3 Nem! CPU nin: 13608 
: genety Se pages 
3; Compi ation. Complete 
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